home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CHK3.SRC < prev    next >
Text File  |  1990-11-03  |  30KB  |  1,196 lines
  1. ;\|
  2. ;CHK3.SRC     Translated from CHK3.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CHECK_UP 12:04:34 PM   3/ 6/90   |
  4. DO_DEFINES:
  5. define(FLAG|A|1||)
  6. define(lct_fld|N|2||)
  7. define(MEM_EYES|A|5||)
  8. define(MEM_EARS|A|4||)
  9. define(MEM_MOBIL|A|5||)
  10. define(MEM_MEM|A|4||)
  11. define(MEM_BOWELS|A|4||)
  12. define(MEM_BLAD|A|4||)
  13. define(CTR6|N|2||)
  14. define(MEM_HOUSE|A|12||)
  15. define(YES.NO|A|1||)
  16. define(TICK|A|1||5)
  17. define(CTR3|N|1||)
  18. define(MEM_NAME_CHK|A|27||)
  19. define(PROC4|A|1||)
  20. define(REF_CTR|N|2||)
  21. define(MEM_DOC2|N|1||)
  22. define(CON_CTR|N|2||)
  23. define(EXTRAS|N|3||)
  24. define(CON_NUM|N|3||)
  25. define(CLIN_NUM|N|3||)
  26. define(EMERG_NUM|N|3||)
  27. define(ISIT_EMER|A|1||)
  28. define(MEM_DOC|A|1||)
  29. define(NY|A|1||)
  30. define(AGE|N|2||)
  31. define(BP_DROP|N|2||)
  32. define(MEM_CTR|N|1||)
  33. define(FBS_ADD|N|5|2|)
  34. define(MEM_BP_AGE|N|3||)
  35. define(AOD|A|1||15)
  36. define(TD|S|8||)
  37. define(MN|A|30||15)
  38. define(DO_FLD|A|8||15)
  39. define(QU|A|10||15)
  40. define(DS|A|30||15)
  41. define(QTY|N|3||15)
  42. define(ISN|N|3||15)
  43. define(CTR|N|2||)
  44. define(CTR2|N|2||)
  45. define(LNE.LNGTH|N|2||)
  46. define(OK|A|1||)
  47. define(LNE.LN2|N|2||)
  48. define(NUM.MSG|N|2||)
  49. define(MESSAGE|A|78||15)
  50. define(ENT.MASK|A|10||)
  51. define(LLC|N|2||)
  52. define(WD|N|2||)
  53. define(HT|N|2||)
  54. define(MCNTR|N|5||)
  55. define(MCNTR2|N|5||)
  56. define(MCNTR3|N|5||)
  57. define(MCNTR4|N|5||)
  58. define(MEM_DIAB|A|1||)
  59. define(MEM_NEW|A|1||)
  60. define(MEM_BP|A|1||)
  61. define(MEM_THY|A|1||)
  62. define(MEM_OLD|A|1||)
  63. define(MEM_RECD|S|8||)
  64. define(MEM_RECT|S|8||)
  65. define(MEM_RECB|S|8||)
  66. define(ISITCLIN|A|1||)
  67. OPEN_FILES:
  68. open(PATIENT||0|)
  69. open(DIABETIC||0|)
  70. open(RP||0|)
  71. open(RECALLS||0|)
  72. open(REFER||0|EXIT)
  73. open(PROCEDE||1|EXIT)
  74. open(MEMORY||0|EXIT)
  75. open(GPSETUP||0|EXIT)
  76. STARTCHK:
  77. mount(CHECK|S)
  78. CTR = (9)
  79. for(CTR2|1|5|1)
  80. {
  81. enter(TICK[CTR2]|"YN"||STARTCHK|Y|Y|N|64|CTR|N)
  82. CTR = (CTR+1)
  83. }
  84. enter(YES.NO|"YN"||STARTCHK|Y|Y|N|44|15|N)
  85. if YES.NO = ("Y") then run("PATREC")
  86. trap(S|G|SAVE_RECS)
  87. trap(D|I)
  88. trap(C|G|CLR_RECS)
  89. trap(Q|G|EXIT)
  90. trap(J|I)
  91. MOUNT_SCRS:
  92. mount(SCREEN2|S||)
  93. CHECK_TYPE = (10)
  94. pmsg("F1 - Help  F2 - Memo"|1|24|N|N|S|)
  95. date(TD|G)
  96. START_UP:
  97. trap(J|I)
  98. MEM_OLD = ("Y")
  99. PAT.NAME:
  100. clrlne(1|22)
  101. enter(PATIENT.NAME||||||||)
  102. find(G|PATIENT.NAME|PAT.NAME|)
  103. DIAB_REF = (RECORD.NUMBER)
  104. find(M|DIAB_REF|NO_DIABX|)
  105. NO_DIAB:
  106. goto STARTALL
  107. NO_DIAB2:
  108. gosub GET_AGE
  109. saves(10)
  110. trap(%|I)
  111. trap(U|I)
  112. window(20|12|2|35)
  113. ISITCLIN = ("")
  114. pmsg("Is this a clinic or update?"|1|1|N|N|S|)
  115. enter(ISITCLIN|"YN"|||Y|Y|N|30|1|N)
  116. if ISITCLIN = ("Y") then CHECK_DATE = (TD)
  117. trap(%|D)
  118. trap(U|D)
  119. redsp(10)
  120. enter(CHECK_DATE||||N|Y|N|||N)
  121. enter(CHECK_OP||||Y|Y|N|||N)
  122. if CHECK_OP = ("") reent
  123. enter(CHK_DOC|"1234"|||N|Y|N|||N)
  124. enter(DOC_BP1|"1234567890"|||N|Y|N|||N)
  125. enter(DOC_BP2|"1234567890"|||N|Y|N|||N)
  126. if DOC_BP1 > (0) then MEM_BP = ("Y")
  127. NO_DIAB3:
  128. FLAG = ("X")
  129. trap(J|G|RUN_MEMO)
  130. enter(ONOWN|"YN "|ONOWN_HLP||Y|Y|N|||N)
  131. enter(EYES|" OPSB"|EYES_HLP||Y|Y|N|||N)
  132. enter(EARS|" ODA"|EARS_HLP||Y|Y|N|||N)
  133. enter(WALK||WALK_HLP||N|Y|N|||N)
  134. enter(MOBILITY|"GPWB"|MOBIL_HLP||Y|Y|N|||N)
  135. enter(UP|" YN"|UP_HLP||Y|Y|N|||N)
  136. enter(MEMORY|" GPBD"|MEM_HLP||Y|Y|N|||N)
  137. enter(BOWELS|" OCIDS"|BOWELS_HLP||Y|Y|N|||N)
  138. enter(BLADDER|" CIA"|BLAD_HLP||Y|Y|N|||N)
  139. enter(MEDIC|"YN"|MEDIC_HLP||Y|Y|N|||N)
  140. enter(HOME_HELP|"YNR "|HOME_HLP||Y|Y|N|||N)
  141. enter(MEALS|"YNR "|MEALS_HLP||Y|Y|N|||N)
  142. enter(NURSE|"YNR "|NURSE_HLP||Y|Y|N|||N)
  143. enter(HOUSE|"H3NFO "|HOUSE_HLP||Y|Y|N|||N)
  144. enter(SMOK||SMOK_HLP||N|Y|N|||N)
  145. if SMOK > (0) gosub SMOK_MSG
  146. enter(EXERCISE||EX_HLP||N|Y|N|||N)
  147. enter(ALCOHOL||ALC_HLP||N|Y|N|||N)
  148. enter(ANGINA||ANG_HLP||N|Y|N|||N)
  149. enter(DIET|"GBP "|DIET_HLP||Y|Y|N|||N)
  150. enter(WT1||||N|Y|N|||N)
  151. enter(WT2||||N|Y|N|||N)
  152. IDEAL_WT = (WT2-81*0.85)
  153. if WT1 > (IDEAL_WT) gosub WEIGHT
  154. enter(PROT|" T+"|||N|N|N|||N)
  155. if PROT => ("+") gosub REF_PROT
  156. enter(SUG||SUG_HLP||N|N|N|||N)
  157. if SUG > (0.25) gosub REF_SUG
  158. enter(BP_CHECK_NUM|" 123"|||N|Y|N|||N)
  159. enter(BP1||||N|Y|N|||N)
  160. enter(BP2||||N|Y|N|||N)
  161. enter(BP1S||BPST_HLP||N|Y|N|||N)
  162. gosub BP_CHECK
  163. enter(PULSE||||N|Y|N|||N)
  164. enter(REG|" YN"|REG_HLP||Y|Y|N|||N)
  165. if REG = ("N") then enter(APEX||||N|Y|N|||N)
  166. enter(FEV||||N|Y|N|||N)
  167. enter(COMMENT1||||Y|Y|N|||N)
  168. enter(COMMENT2||||Y|Y|N|||N)
  169. gosub DRUGSCH
  170. enter(DRUGS_CHECKED|"NY"|||Y|Y|N|||N)
  171. enter(REF_CHECK|"NY"|||Y|Y|N|||N)
  172. NEXT_CHECK = (CHECK_DATE+186)
  173. enter(NEXT_CHECK||||N|Y|N|||N)
  174. YES.NO = ("")
  175. enter(YES.NO|"YN"|||Y|Y|N|||N)
  176. if YES.NO = ("Y") gosub PRINT
  177. SAVE_RECS:
  178. if RECORD.NUMBER = (0) goto PAT.NAME
  179. SAVE_DONE:
  180. DIAB_REF = (RECORD.NUMBER)
  181. CHECK_TYPE = (10)
  182. save(DIABETIC|N|Y)
  183. find(M|RECORD.NUMBER|EXIT|)
  184. SMOKER = ("Y")
  185. save(PATIENT|N|Y)
  186. if FLAG = ("Y") then run("recmenu")
  187. FLAG = ("")
  188. STARTX:
  189. MEM_DIAB = ("")
  190. MEM_NEW = ("")
  191. MEM_BP = ("")
  192. MEM_THY = ("")
  193. MEM_CTR = (0)
  194. MEM_RECD = (0)
  195. MEM_NAME_CHK = ("")
  196. MEM_RECT = (0)
  197. MEM_CTR = (0)
  198. MEM_OLD = ("")
  199. MEM_RECB = (0)
  200. AGE = (0)
  201. BP_DROP = (0)
  202. FBS_ADD = (0)
  203. MEM_BP_AGE = (0)
  204. for(CTR|12|23|1)
  205. {
  206. clrlne(1|CTR)
  207. }
  208. pmsg("F1 - Help  F2 - Memo  [Ctrl-Y]- Print"|1|24|N|N|S|)
  209. clr(PATIENT|B)
  210. goto START_UP
  211. DEL_RECS:
  212. del(DIABETIC|Y|)
  213. clr(PATIENT|B)
  214. goto STARTX
  215. CLR_RECS:
  216. clr(PATIENT|B)
  217. clr(DIABETIC|B)
  218. goto STARTX
  219. EXIT:
  220. if FLAG = ("X") do
  221. {
  222. FLAG = ("Y")
  223. goto SAVE_DONE
  224. }
  225. run("recmenu")
  226. PRT.MSG:
  227. LNE.LNGTH = (0)
  228. for(MCNTR|1|NUM.MSG|1)
  229. {
  230. LNE.LN2 =siz(A|MESSAGE[MCNTR])
  231. if LNE.LN2 > (LNE.LNGTH) then LNE.LNGTH = (LNE.LN2)
  232. }
  233. NUM.MSG = (NUM.MSG + 1)
  234. if LNE.LNGTH < (26) then LNE.LNGTH = (26)
  235. LNE.LNGTH = (LNE.LNGTH + 4)
  236. LLC = (40 - (LNE.LNGTH / 2))
  237. HT = (NUM.MSG + 3)
  238. WD = (LNE.LNGTH + 1)
  239. saves(1)
  240. window(LLC|24|HT|WD)
  241. NUM.MSG = (NUM.MSG - 1)
  242. pmsg(""||||||)
  243. for(MCNTR|1|NUM.MSG|1)
  244. {
  245. pmsg(MESSAGE[MCNTR]|3||N|N|S|)
  246. }
  247. pmsg("Press any key to continue"|3||Y|N|S|)
  248. redsp(1)
  249. ret
  250. NO_DIABX:
  251. clr(DIABETIC|B)
  252. MESSAGE[1] = ("NO CHECK UP RECORD FOR THIS PATIENT")
  253. NUM.MSG = (1)
  254. gosub PRT.MSG
  255. goto NO_DIAB
  256. SEEALL:
  257. STARTALL1:
  258. STARTALL:
  259. if RECORD.NUMBER = (0) goto ENDIT
  260. COD.REF = (RECORD.NUMBER)
  261. find(M|COD.REF|NEXTALL2|)
  262. MEM_RECD = (COD.D[4])
  263. MEM_RECT = (COD.D[6])
  264. MEM_RECB = (COD.D[9])
  265. NEXTALL2:
  266. RP.REF = (RECORD.NUMBER)
  267. find(M|RP.REF|ENDITX|)
  268. CTR = (1)
  269. TESTALL:
  270. if CTR = (23) goto ENDIT
  271. AOD[CTR] = (AUTO.ON.DEMAND)
  272. MN[CTR] = (MEDICATION)
  273. DO_FLD[CTR] = (DOSE)
  274. QU[CTR] = (QUANTITY)
  275. DS[CTR] = (DIRECTIONS)
  276. QTY[CTR] = (RP.DISP.QTY)
  277. ISN[CTR] = (ISSUE.NO)
  278. trim(MN[CTR]|T)
  279. trim(QU[CTR]|T)
  280. just(QU[CTR]|L)
  281. trim(DO_FLD[CTR]|T)
  282. just(DO_FLD[CTR]|L)
  283. trim(DS[CTR]|T)
  284. just(DS[CTR]|L)
  285. pmsg(AOD[CTR];" ";MN[CTR];" ";DO_FLD[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  286. CTR2 = (CTR+11)
  287. find(N|RP|ENDIT|)
  288. if RP.REF <> (RECORD.NUMBER) goto ENDIT
  289. CTR = (CTR+1)
  290. goto TESTALL
  291. CLEARXALL:
  292. clr(RP|B)
  293. clr(RECALLS|B)
  294. clrmem(AOD|15)
  295. clrmem(MN|15)
  296. clrmem(DO_FLD|15)
  297. clrmem(QU|15)
  298. clrmem(DS|15)
  299. clrmem(QTY|15)
  300. clrmem(ISN|15)
  301. ret
  302. ENDIT:
  303. find(M|RECORD.NUMBER|PAT.NAME|)
  304. DIAB_REF = (RECORD.NUMBER)
  305. find(M|DIAB_REF|NO_DIAB2|)
  306. goto NO_DIAB2
  307. ENDITX:
  308. MESSAGE[1] = ("NO DRUGS ON REPEAT")
  309. NUM.MSG = (1)
  310. gosub PRT.MSG
  311. goto ENDIT
  312. GET_AGE:
  313. AGE = (TD-DATE.OF.BIRTH/365)
  314. ret
  315. BP_CHECK:
  316. if MEM_BP = ("Y") do
  317. {
  318. if BP_CHECK_NUM => (2) do
  319. {
  320. if BP1 > (DOC_BP1) gosub REFER_BP
  321. if BP2 > (DOC_BP2) gosub REFER_BP
  322. BP_DROP = (BP1-BP1S)
  323. if BP_DROP > (20) gosub REFER_BP
  324. }
  325. ret
  326. }
  327. else
  328. {
  329. if BP_CHECK_NUM = (2) do
  330. {
  331. if BP1 > (AGE+110) gosub REFER_BP
  332. }
  333. if BP2 > (105) gosub REFER_BP
  334. BP_DROP = (BP1-BP1S)
  335. if BP_DROP > (20) gosub REFER_BP
  336. }
  337. ret
  338. SMOK_HLP:
  339. MESSAGE[1] = ("Number per day eg 16")
  340. NUM.MSG = (1)
  341. gosub PRT.MSG
  342. ret
  343. SMOK_MSG:
  344. MESSAGE[1] = ("There is a risk of cancer,heart disease,gangrene,and bronchitis")
  345. NUM.MSG = (1)
  346. gosub PRT.MSG
  347. ret
  348. REF_PROT:
  349. MESSAGE[1] = ("If there is more than a trace -send sample for orgs and sens.")
  350. MESSAGE[2] = ("Refer to Dr if protein persists etc")
  351. NUM.MSG = (2)
  352. gosub PRT.MSG
  353. ret
  354. SUG_HLP:
  355. MESSAGE[1] = ("Enter sugar in urine as a decimal eg 1/4 = .25")
  356. NUM.MSG = (1)
  357. gosub PRT.MSG
  358. ret
  359. REF_SUG:
  360. MESSAGE[1] = ("Do a blood sugar.If high refer to Dr.")
  361. MESSAGE[2] = ("If patient is a diabetic refer to Dr if more than a third of tests over .25")
  362. NUM.MSG = (2)
  363. gosub PRT.MSG
  364. ret
  365. REG_HLP:
  366. MESSAGE[1] = ("Enter a Y if regular or a N if not. Do apical rate if N")
  367. NUM.MSG = (1)
  368. gosub PRT.MSG
  369. ret
  370. REFER_BP:
  371. MESSAGE[1] = ("There is a definate BP problem here - refer to Dr.")
  372. NUM.MSG = (1)
  373. REF_CHECK = ("Y")
  374. gosub PRT.MSG
  375. ret
  376. BPST_HLP:
  377. MESSAGE[1] = ("Enter standing systolic - It should not drop more than 20")
  378. NUM.MSG = (1)
  379. gosub PRT.MSG
  380. ret
  381. DIET_HLP:
  382. MESSAGE[1] = ("G = Good diet B = Bad diet P = Poor")
  383. NUM.MSG = (1)
  384. gosub PRT.MSG
  385. ret
  386. EX_HLP:
  387. MESSAGE[1] = ("Enter a number for hours per week exercise")
  388. NUM.MSG = (1)
  389. gosub PRT.MSG
  390. ret
  391. DRUGSCH:
  392. MESSAGE[1] = ("NOW CHECK PATIENTS DRUG THERAPY IS CORRECT")
  393. NUM.MSG = (1)
  394. gosub PRT.MSG
  395. mount(DRUGSCR|S)
  396. RP.REF = (RECORD.NUMBER)
  397. find(M|RP.REF|NOSCR|)
  398. CTR = (17)
  399. NEXTRPS:
  400. trim(MEDICATION|T)
  401. if CTR = (29) do
  402. {
  403. pmsg("There are more drugs"|65|20|N|N|D|)
  404. goto NOSCR
  405. }
  406. if CTR => (23) do
  407. {
  408. CTR6 = (CTR-6)
  409. pmsg(MEDICATION|31|CTR6|N|N|D|)
  410. }
  411. else
  412. {
  413. pmsg(MEDICATION|1|CTR|N|N|D|)
  414. }
  415. CTR = (CTR+1)
  416. find(N|RP|NOSCR|)
  417. if RP.REF <> (RECORD.NUMBER) goto NOSCR
  418. goto NEXTRPS
  419. NOSCR:
  420. enter(COMMENT1|||NOSCR|Y|Y|N|||N)
  421. enter(COMMENT2||||Y|Y|N|||N)
  422. mount(SCREEN2|S)
  423. ret
  424. NOCOD:
  425. COD.PAT.NAME = (PATIENT.NAME)
  426. COD.REF = (RECORD.NUMBER)
  427. save(RECALLS|N|N)
  428. find(M|COD.REF||)
  429. goto SAVE_RECS
  430. RUN_MEMO:
  431. goto RUN_MEMOX
  432. RUN_MEMOX:
  433. trap(J|G|EXIT_MEM)
  434. trap(S|G|SAVE_MEMO)
  435. trap(D|I)
  436. trap(C|I)
  437. trap(Q|G|EXIT_MEM)
  438. trap(L|G|EXIT_MEM)
  439. MOUNT:
  440. mount(NEW|S||)
  441. START:
  442. enter(PATIENT.NAME||||Y|Y|N|||N)
  443. find(G|PATIENT.NAME|START|)
  444. PROC_REF = (RECORD.NUMBER)
  445. find(M|PROC_REF|START2CL|)
  446. NY = ("")
  447. pmsg("DO YOU WANT TO UPDATE THE MEMOS FIRST:"|10|20|N|N|S|)
  448. enter(NY|"YN"|||Y|Y|N|50|20|N)
  449. if NY = ("Y") goto UPMEMO
  450. clrlne(1|20)
  451. START2:
  452. gosub LINE
  453. if CTR2 = (0) then CTR2 = (1)
  454. SATRT3:
  455. MEM_DOC = ("")
  456. for(CTR|CTR2|6|1)
  457. {
  458. PROC_DATE[CTR] = (TD)
  459. PROC_UP = (TD)
  460. enter(PROC_DATE[CTR]|||SATRT3|N|N|N|||N)
  461. enter(PROC[CTR]||||Y|Y|N|||N)
  462. enter(PROC_DOC[CTR]|"12345"|||Y|Y|N|||N)
  463. MEM_DOC = (PROC_DOC[CTR])
  464. enter(PROC_OP[CTR]||||Y|Y|N|||N)
  465. if PROC_OP[CTR] = ("") reent
  466. if PROC_EX[CTR] = ("") do
  467. {
  468. PROC_REF = (RECORD.NUMBER)
  469. PROC4 =mid(PROC[CTR]|1|1|)
  470. if PROC4 = ("*") do
  471. {
  472. PROC_EX[CTR] = ("X")
  473. gosub STARTAGAIN
  474. save(PROCEDE|N|N)
  475. find(M|PROC_REF||)
  476. }
  477. enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  478. enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  479. enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  480. enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  481. enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  482. enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  483. }
  484. }
  485. gosub LINE
  486. for(CTR|1|6|1)
  487. {
  488. if PROC[CTR] = ("") then PROC_DATE[CTR] = (0)
  489. }
  490. goto SATRT3
  491. SAVE_MEMO:
  492. for(CTR|1|6|1)
  493. {
  494. if PROC[1] = ("") do
  495. {
  496. clr(PROCEDE|B)
  497. goto START
  498. }
  499. if PROC[CTR] = ("") do
  500. {
  501. PROC_DATE[CTR] = (0)
  502. PROC_OP[CTR] = ("")
  503. PROC_DOC[CTR] = ("")
  504. PROC_DONE[CTR] = ("")
  505. }
  506. }
  507. if PROC_REF = (0) goto START
  508. PROC_REF = (RECORD.NUMBER)
  509. if PROC_REF = (0) goto START
  510. save(PROCEDE|Y|Y|)
  511. MEM_DOC = ("")
  512. goto START
  513. EXIT_MEM:
  514. if PROC[1] = ("") goto RUNPATREC
  515. for(CTR|1|6|1)
  516. {
  517. if PROC[CTR] = ("") do
  518. {
  519. PROC_DATE[CTR] = (0)
  520. PROC_OP[CTR] = ("")
  521. PROC_DOC[CTR] = ("")
  522. PROC_DONE[CTR] = ("")
  523. }
  524. }
  525. if PROC_REF > (0) then save(PROCEDE|N|Y)
  526. RUNPATREC:
  527. trap(S|G|SAVE_RECS)
  528. trap(D|I)
  529. trap(C|G|CLR_RECS)
  530. trap(Q|G|EXIT)
  531. trap(J|G|RUN_MEMO)
  532. mount(SCREEN2|S)
  533. gosub STARTALLXX
  534. goto PAT.NAME2
  535. LINE:
  536. for(CTR2|1|6|1)
  537. {
  538. if PROC[CTR2] = ("") do
  539. {
  540. if CTR2 = (6) do
  541. {
  542. pops
  543. goto SATRT3
  544. }
  545. ret
  546. }
  547. }
  548. CTR = (2)
  549. if PROC_DATE[1] = (TD) do
  550. {
  551. for(CTR3|1|6|1)
  552. {
  553. enter(PROC_DONE[CTR3]|" Y"|||Y|Y|N|||N)
  554. }
  555. pops
  556. goto SAVE_MEMO
  557. }
  558. for(CTR2|1|5|1)
  559. {
  560. PROC[CTR2] = (PROC[CTR])
  561. PROC_DATE[CTR2] = (PROC_DATE[CTR])
  562. PROC_OP[CTR2] = (PROC_OP[CTR])
  563. PROC_DOC[CTR2] = (PROC_DOC[CTR])
  564. PROC_DONE[CTR2] = (PROC_DONE[CTR])
  565. CTR = (CTR+1)
  566. }
  567. PROC[6] = ("")
  568. PROC_DATE[6] = (0)
  569. PROC_OP[6] = ("")
  570. PROC_DOC[6] = ("")
  571. PROC_DONE[6] = ("")
  572. PROC_EX[6] = ("")
  573. goto LINE
  574. ret
  575. UPARROW:
  576. CTR2 = (CTR2-1)
  577. CTR = (CTR2)
  578. ret
  579. STARTAGAIN:
  580. trap(%|I)
  581. trap(J|I)
  582. trap(Q|G|EXITX)
  583. trap(U|I)
  584. trap(C|I)
  585. trap(S|I)
  586. saves(1)
  587. window(20|15|5|40)
  588. trap(Q|G|EXITX)
  589. find(B|HEADING||)
  590. pmsg("IS IT EMERGENCY:"|1|1|N|N|S|)
  591. enter(ISIT_EMER|"YN"|||Y|Y|N|20|1|N)
  592. if ISIT_EMER = ("Y") goto SCR2
  593. gosub SCREEN2
  594. CLIN_NUM = (CLIN_NUM)
  595. pmsg("ENTER SPECIALTY:"|1|2|N|N|S|)
  596. enter(CLIN_NUM||||N|Y|N|20|2|N)
  597. ADDER:
  598. REF_COD = (MEM_DOC)
  599. find(M|REF_COD|EXIT|)
  600. if ISIT_EMER <> ("Y") do
  601. {
  602. CLIN_REF[CLIN_NUM] = (CLIN_REF[CLIN_NUM]+1)
  603. }
  604. else
  605. {
  606. EMERG_REF[EMERG_NUM] = (EMERG_REF[EMERG_NUM]+1)
  607. }
  608. save(REFER|N|Y)
  609. CLIN_NUM = (0)
  610. CON_NUM = (0)
  611. EMERG_NUM = (0)
  612. ISIT_EMER = ("")1
  613. redsp(1)
  614. trap(%|D)
  615. trap(J|G|EXIT_MEM)
  616. trap(U|D)
  617. trap(Q|G|EXIT)
  618. ret
  619. SCREEN2:
  620. saves(2)
  621. window(1|25|24|78)
  622. for(REF_CTR|1|22|1)
  623. {
  624. pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  625. }
  626. CON_CTR = (REF_CTR+1)
  627. for(REF_CTR|1|22|1)
  628. {
  629. pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  630. CON_CTR = (CON_CTR+1)
  631. }
  632. pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  633. enter(CLIN_NUM||||N|Y|N|65|13|N)
  634. if CLIN_NUM = (0) reent
  635. if CLIN_NUM > (44) reent
  636. redsp(2)
  637. ret
  638. SCREEN3:
  639. saves(2)
  640. window(1|25|24|78)
  641. for(REF_CTR|1|22|1)
  642. {
  643. pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  644. }
  645. CON_CTR = (REF_CTR+1)
  646. for(REF_CTR|1|22|1)
  647. {
  648. pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  649. CON_CTR = (CON_CTR+1)
  650. }
  651. pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  652. enter(EMERG_NUM||||N|Y|N|65|13|N)
  653. if EMERG_NUM = (0) reent
  654. if EMERG_NUM > (44) reent
  655. redsp(2)
  656. ret
  657. SCR2:
  658. gosub SCREEN3
  659. EMERG_NUM = (EMERG_NUM)
  660. pmsg("ENTER SPECIALTY EMERGENCY:"|1|3|N|N|S|)
  661. enter(EMERG_NUM||||N|Y|N|30|3|N)
  662. goto ADDER
  663. EXITX:
  664. goto STARTCHK
  665. UPMEMO:
  666. enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  667. enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  668. enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  669. enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  670. enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  671. enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  672. clrlne(1|22)
  673. goto START2
  674. START2CL:
  675. clr(PROCEDE|B)
  676. goto START2
  677. PAT.NAME2:
  678. goto NO_DIAB3
  679. PRINT:
  680. mount(CHKREP|R|P)
  681. pchr(P|1)
  682. gosub GET_MEM
  683. pfmt(1|||N|N|)
  684. pfmt(2|||N|N|)
  685. pfmt(3|||N|N|)
  686. pfmt(4|||N|N|)
  687. pfmt(5|||N|N|)
  688. pfmt(6|||N|N|)
  689. pfmt(7|||N|N|)
  690. lct_fld = (0)
  691. gosub PRINTRP
  692. lct_fld = (lct_fld+7)
  693. if REF_CHECK = ("Y") do
  694. {
  695. pmsg(%14;"                           REFERRED TO DOCTOR"|||N|N|P|)
  696. lct_fld = (lct_fld+1)
  697. }
  698. CTR3 = (22-lct_fld)
  699. if CTR3 <= (0) goto STARTAG
  700. for(CTR2|1|CTR3|1)
  701. {
  702. pmsg(""|||N|N|P|)
  703. }
  704. STARTAG:
  705. pfmt(8|||N|N|)
  706. pblnk(1)
  707. mount(SCREEN2|S)
  708. gosub STARTALLXX
  709. ret
  710. PRINTRP:
  711. RP.REF = (RECORD.NUMBER)
  712. find(M|RP.REF|RETPRINT|)
  713. CTR = (1)
  714. TESTALLX:
  715. lct_fld = (lct_fld+1)
  716. if CTR = (8) goto RETPRINT
  717. AOD[CTR] = (AUTO.ON.DEMAND)
  718. MN[CTR] = (MEDICATION)
  719. DO_FLD[CTR] = (DOSE)
  720. QU[CTR] = (QUANTITY)
  721. DS[CTR] = (DIRECTIONS)
  722. QTY[CTR] = (RP.DISP.QTY)
  723. ISN[CTR] = (ISSUE.NO)
  724. trim(MN[CTR]|T)
  725. trim(QU[CTR]|T)
  726. just(QU[CTR]|L)
  727. trim(DO_FLD[CTR]|T)
  728. just(DO_FLD[CTR]|L)
  729. trim(DS[CTR]|T)
  730. just(DS[CTR]|L)
  731. pmsg(AOD[CTR];" ";MN[CTR];" ";DO_FLD[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|||N|N|P|)
  732. find(N|RP|RETPRINT|)
  733. if RP.REF <> (RECORD.NUMBER) goto RETPRINT
  734. CTR = (CTR+1)
  735. goto TESTALLX
  736. RETPRINT:
  737. PROC_REF = (RECORD.NUMBER)
  738. find(M|PROC_REF|RETPRINTX|)
  739. for(CTR2|1|6|1)
  740. {
  741. if PROC[CTR2] = ("") goto RETPRINTX
  742. pmsg(PROC_DATE[CTR2];"   ";PROC[CTR2]|||N|N|P|)
  743. lct_fld = (lct_fld+1)
  744. }
  745. RETPRINTX:
  746. ret
  747. STARTALLXX:
  748. if RECORD.NUMBER = (0) goto ENDITXXX
  749. COD.REF = (RECORD.NUMBER)
  750. find(M|COD.REF|NEXTALL2XX|)
  751. MEM_RECD = (COD.D[4])
  752. MEM_RECT = (COD.D[6])
  753. MEM_RECB = (COD.D[9])
  754. NEXTALL2XX:
  755. RP.REF = (RECORD.NUMBER)
  756. find(M|RP.REF|ENDITXXX|)
  757. CTR = (1)
  758. TESTALLOP:
  759. if CTR = (23) goto ENDITXXX
  760. AOD[CTR] = (AUTO.ON.DEMAND)
  761. MN[CTR] = (MEDICATION)
  762. DO_FLD[CTR] = (DOSE)
  763. QU[CTR] = (QUANTITY)
  764. DS[CTR] = (DIRECTIONS)
  765. QTY[CTR] = (RP.DISP.QTY)
  766. ISN[CTR] = (ISSUE.NO)
  767. trim(MN[CTR]|T)
  768. trim(QU[CTR]|T)
  769. just(QU[CTR]|L)
  770. trim(DO_FLD[CTR]|T)
  771. just(DO_FLD[CTR]|L)
  772. trim(DS[CTR]|T)
  773. just(DS[CTR]|L)
  774. pmsg(AOD[CTR];" ";MN[CTR];" ";DO_fld[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  775. CTR2 = (CTR+11)
  776. find(N|RP|ENDITXXX|)
  777. if RP.REF <> (RECORD.NUMBER) goto ENDITXXX
  778. CTR = (CTR+1)
  779. goto TESTALLOP
  780. ENDITXXX:
  781. ret
  782. ALC_HLP:
  783. MESSAGE[1] = ("ENTER NUMBER OF PINTS A WEEK - 1 PUB GIN=1/2 PINT")
  784. NUM.MSG = (1)
  785. gosub PRT.MSG
  786. ret
  787. ANG_HLP:
  788. MESSAGE[1] = ("ENTER NUMBER OF ATTACKS PER WEEK")
  789. NUM.MSG = (1)
  790. gosub PRT.MSG
  791. ret
  792. WEIGHT:
  793. MESSAGE[1] = ("THERE IS AN OBESITY PROBLEM HERE")
  794. NUM.MSG = (1)
  795. gosub PRT.MSG
  796. ret
  797. OED_HLP:
  798. MESSAGE[1] = ("Graded from 0 to 3")
  799. NUM.MSG = (1)
  800. gosub PRT.MSG
  801. ret
  802. ONOWN_HLP:
  803. MESSAGE[1] = ("LIVING ALONE Y OR N")
  804. NUM.MSG = (1)
  805. gosub PRT.MSG
  806. ret
  807. EYES_HLP:
  808. MESSAGE[1] = ("(O)K,(S)PECS,(P)ARTIAL,(B)LIND")
  809. NUM.MSG = (1)
  810. gosub PRT.MSG
  811. ret
  812. EARS_HLP:
  813. MESSAGE[1] = ("(O)K,(D)EAF,(A)ID")
  814. NUM.MSG = (1)
  815. gosub PRT.MSG
  816. ret
  817. WALK_HLP:
  818. MESSAGE[1] = ("CAPABILITY IN MILES OR PART OF A MILE")
  819. NUM.MSG = (1)
  820. gosub PRT.MSG
  821. ret
  822. MOBIL_HLP:
  823. MESSAGE[1] = ("AROUND HOME -(G)OOD,(P)OOR,(W)HEELCHAIR,(B)EDRIDDEN")
  824. NUM.MSG = (1)
  825. gosub PRT.MSG
  826. ret
  827. UP_HLP:
  828. MESSAGE[1] = ("CAN THE PATIENT MANAGE STAIRS Y/N")
  829. NUM.MSG = (1)
  830. gosub PRT.MSG
  831. ret
  832. MEM_HLP:
  833. MESSAGE[1] = ("(G)OOD,(P)OOR,(B)AD,(D)EMENTED")
  834. NUM.MSG = (1)
  835. gosub PRT.MSG
  836. ret
  837. BOWELS_HLP:
  838. MESSAGE[1] = ("(O)K,(C)ONSTIPATED,(D)IARRHOEA,(I)NCONTINENT,O(S)TOMY")
  839. NUM.MSG = (1)
  840. gosub PRT.MSG
  841. ret
  842. BLAD_HLP:
  843. MESSAGE[1] = ("(C)ONTINENT,(I)NCONTINENT,C(A)THETER")
  844. NUM.MSG = (1)
  845. gosub PRT.MSG
  846. ret
  847. MEDIC_HLP:
  848. MESSAGE[1] = ("? ON MEDICATION Y/N")
  849. NUM.MSG = (1)
  850. gosub PRT.MSG
  851. ret
  852. HOME_HLP:
  853. MESSAGE[1] = ("HOME HELP - (Y)ES,(N)O,(R)EQUIRED")
  854. NUM.MSG = (1)
  855. gosub PRT.MSG
  856. ret
  857. MEALS_HLP:
  858. MESSAGE[1] = ("MEALS ON WHEELS - (Y)ES,(N)O,(R)EQUIRED")
  859. NUM.MSG = (1)
  860. gosub PRT.MSG
  861. ret
  862. NURSE_HLP:
  863. MESSAGE[1] = ("NURSE IN ATTENDANCE - Y - N - (R)EQUIRED")
  864. NUM.MSG = (1)
  865. gosub PRT.MSG
  866. ret
  867. HOUSE_HLP:
  868. MESSAGE[1] = ("(H)OUSE,(F)LAT,PART(3),(N)URSING HOME,(O)THER")
  869. NUM.MSG = (1)
  870. gosub PRT.MSG
  871. ret
  872. GET_MEM:
  873. if EYES = ("O") then MEM_EYES = ("OK")
  874. if EYES = ("S") then MEM_EYES = ("SPECS")
  875. if EYES = ("P") then MEM_EYES = ("PART")
  876. if EYES = ("B") then MEM_EYES = ("BLIND")
  877. if EARS = ("O") then MEM_EARS = ("OK")
  878. if EARS = ("D") then MEM_EARS = ("DEAF")
  879. if EARS = ("A") then MEM_EARS = ("AID")
  880. if MOBILITY = ("G") then MEM_MOBIL = ("GOOD")
  881. if MOBILITY = ("P") then MEM_MOBIL = ("POOR")
  882. if MOBILITY = ("W") then MEM_MOBIL = ("WHEEL")
  883. if MOBILITY = ("B") then MEM_MOBIL = ("BED")
  884. if MEMORY = ("G") then MEM_MEM = ("GOOD")
  885. if MEMORY = ("P") then MEM_MEM = ("POOR")
  886. if MEMORY = ("B") then MEM_MEM = ("BAD")
  887. if MEMORY = ("D") then MEM_MEM = ("DEMT")
  888. if BOWELS = ("O") then MEM_BOWELS = ("OK")
  889. if BOWELS = ("C") then MEM_BOWELS = ("CONS")
  890. if BOWELS = ("D") then MEM_BOWELS = ("DIAR")
  891. if BOWELS = ("I") then MEM_BOWELS = ("INCT")
  892. if BOWELS = ("S") then MEM_BOWELS = ("OSTY")
  893. if BLADDER = ("C") then MEM_BLAD = ("CONT")
  894. if BLADDER = ("I") then MEM_BLAD = ("INCT")
  895. if BLADDER = ("A") then MEM_BLAD = ("CATH")
  896. if HOUSE = ("H") then MEM_HOUSE = ("HOUSE")
  897. if HOUSE = ("F") then MEM_HOUSE = ("FLAT")
  898. if HOUSE = ("3") then MEM_HOUSE = ("PART 3")
  899. if HOUSE = ("N") then MEM_HOUSE = ("NURSE HOME")
  900. if MEM_HOUSE = ("O") then HOUSE = ("OTHER")
  901. ret
  902. ;DRUG     05:01:17 PM  14/ 4/90   |
  903. \STNEW     
  904.  
  905.  
  906.  
  907.  
  908.  
  909.                                  PROCEDURE ENTRY
  910.           ╔═══════════════════════════════════════════════════════════════╗
  911.           ║ &                          <&                     <&         <║
  912.           ║                                                               ║
  913.           ║  Date             Procedure                        Dr Rec Done║
  914.           ║ &         &                                        & &    &   ║
  915.           ║ &         &                                        & &    &   ║
  916.           ║ &         &                                        & &    &   ║
  917.           ║ &         &                                        & &    &   ║
  918.           ║ &         &                                        & &    &   ║
  919.           ║ &         &                                        & &    &   ║
  920.           ╚═══════════════════════════════════════════════════════════════╝
  921.           Esc - Exit and Save V=1 G=2 P=3 N=4 T=5 * for clinic,xray,path
  922.               Y=DONE S=SEE DR C=COL.SCRPT R=REPEAT O=OTHER N=NORMAL
  923.  
  924.  
  925.  
  926.  
  927.  
  928. \
  929. PATIENT.NAME
  930. ADDRESS1
  931. DATE.OF.BIRTH
  932. PROC_DATE[1]
  933. PROC[1]
  934. PROC_DOC[1]
  935. PROC_OP[1]
  936. PROC_DONE[1]
  937. PROC_DATE[2]
  938. PROC[2]
  939. PROC_DOC[2]
  940. PROC_OP[2]
  941. PROC_DONE[2]
  942. PROC_DATE[3]
  943. PROC[3]
  944. PROC_DOC[3]
  945. PROC_OP[3]
  946. PROC_DONE[3]
  947. PROC_DATE[4]
  948. PROC[4]
  949. PROC_DOC[4]
  950. PROC_OP[4]
  951. PROC_DONE[4]
  952. PROC_DATE[5]
  953. PROC[5]
  954. PROC_DOC[5]
  955. PROC_OP[5]
  956. PROC_DONE[5]
  957. PROC_DATE[6]
  958. PROC[6]
  959. PROC_DOC[6]
  960. PROC_OP[6]
  961. PROC_DONE[6]
  962. \
  963. \R CHKREP  
  964. THREE YEAR  CHECK: &                          :&          [& ] ON &        BY &      Dr.&  Drugs Chkd:& Regd:&
  965. =====================================================================================================================
  966. Onown:&   Eyes:&      Ears:&     Walking:&       Mobility:&      Stairs:&  Memory:&     Bowels:&     Bladder:&
  967. On Medctn:&   Home Help:&   Meals on wheels:&    Nurse:&               House type:&             FEV:&
  968. Smokes :&    Exrcise:&    Alcohol:&    Angina:&    Diet:&   Weight:&        Height:&       Ideal Wt:&      Oed:&
  969. Protein:&      Sugar:&      Drs. Rec. BP:&  /&     BP Chk Num:& BP:&  /&      Standing Sys:&     Pulse:&  /&/&
  970. Nurses comments:&                              &                              Nurses Sig:
  971. Age-Sex checked:&  Smear check:&  Immun checked:&  RP checked:&  Problem list Updated:&  Doctors Sig:
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.  
  994.  
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012. \
  1013. PATIENT.NAME
  1014. DATE.OF.BIRTH
  1015. AGE
  1016. TD
  1017. CHECK_OP
  1018. CHK_DOC
  1019. DRUGS_CHECKED
  1020. PAT.REG
  1021. ONOWN
  1022. MEM_EYES
  1023. MEM_EARS
  1024. WALK
  1025. MEM_MOBIL
  1026. UP
  1027. MEM_MEM
  1028. MEM_BOWELS
  1029. MEM_BLAD
  1030. MEDIC
  1031. HOME_HELP
  1032. MEALS
  1033. NURSE
  1034. MEM_HOUSE
  1035. FEV
  1036. SMOK
  1037. EXERCISE
  1038. ALCOHOL
  1039. ANGINA
  1040. DIET
  1041. WT1
  1042. WT2
  1043. IDEAL_WT
  1044. OEDEMA
  1045. PROT
  1046. SUG
  1047. DOC_BP1
  1048. DOC_BP2
  1049. BP_CHECK_NUM
  1050. BP1
  1051. BP2
  1052. BP1S
  1053. PULSE
  1054. REG
  1055. APEX
  1056. COMMENT1
  1057. COMMENT2
  1058. TICK[1]
  1059. TICK[2]
  1060. TICK[3]
  1061. TICK[4]
  1062. TICK[5]
  1063. \
  1064. \SSSCREEN2 
  1065. THREE YEAR CHK   p p p p p p p p p p p p p p p p p p p p p p p p p p p  p p p p p p p p p p( p p) on  p p p p p p p p by  p p p p p p================
  1066. =============================================================== Dr.Num:p p Drugs Checked:p p Referre
  1067. d to Dr: p Nxt Chk:p p p p p p p p p Prnt N/Y:p p           ================================================
  1068. ===============================   Onown: p     Stairs: p     HH: p    Smokes:p p p     Wt:p p p p p p p    Dr
  1069. .BP:p p p p/ p p p       Eyes : p     Memory: p    MOW: p    Exerc :p p p     Ht:p p p p p p p   Chk.No:p p           
  1070.   Ears : p     Bowels: p  Nurse: p    Alcoh :p p p     IW:p p p p p p p       BP:p p p p/ p p p     Walking: p p p p p p B
  1071. ladr: p  House: p    Angina:p p p     Pr:p p p p p     St.Sys:p p p p         Mobilty: p    Medicat: p  Fev: p p p 
  1072.    Diet  :p p      Su:p p p p p     Pulse:p p p p:p p:p p p p    Com1  :p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p     Com2:p p
  1073.  p p p p p p p p p p p p p p p p p p p p p p p p p p p p p   ================================================================
  1074. ==============                                                                                  
  1075.                                                                                                 
  1076.                                                                                                 
  1077.                                                                                                 
  1078.                                                                                                 
  1079.                                                                                                 
  1080.                                                                                                 
  1081.                                                                                                 
  1082.                                                                                                 
  1083.                                                                                                 
  1084.                                                                                                 
  1085. \
  1086. PATIENT.NAME       27 A 17 1
  1087. DATE.OF.BIRTH      10 D 45 1
  1088. AGE                 2 N 56 1
  1089. CHECK_DATE          8 S 63 1
  1090. CHECK_OP            6 A 75 1
  1091. CHK_DOC             1 N  8 3
  1092. DRUGS_CHECKED       1 A 24 3
  1093. REF_CHECK           1 A 41 3
  1094. NEXT_CHECK          8 S 51 3
  1095. YES.NO              1 A 69 3
  1096. ONOWN               1 A  9 5
  1097. UP                  1 A 22 5
  1098. HOME_HELP           1 A 31 5
  1099. SMOK                2 N 43 5
  1100. WT1                 52N 53 5
  1101. DOC_BP1             3 N 69 5
  1102. DOC_BP2             3 N 73 5
  1103. EYES                1 A  9 6
  1104. MEMORY              1 A 22 6
  1105. MEALS               1 A 31 6
  1106. EXERCISE            2 N 43 6
  1107. WT2                 52N 53 6
  1108. BP_CHECK_NUM        1 N 69 6
  1109. EARS                1 A  9 7
  1110. BOWELS              1 A 22 7
  1111. NURSE               1 A 31 7
  1112. ALCOHOL             2 N 43 7
  1113. IDEAL_WT            52N 53 7
  1114. BP1                 3 N 69 7
  1115. BP2                 3 N 73 7
  1116. WALK                52N  9 8
  1117. BLADDER             1 A 22 8
  1118. HOUSE               1 A 31 8
  1119. ANGINA              2 N 43 8
  1120. PROT                4 A 53 8
  1121. BP1S                3 N 69 8
  1122. MOBILITY            1 A  9 9
  1123. MEDIC               1 A 22 9
  1124. FEV                 3 N 29 9
  1125. DIET                1 A 43 9
  1126. SUG                 32N 53 9
  1127. PULSE               3 N 68 9
  1128. REG                 1 A 72 9
  1129. APEX                3 N 74 9
  1130. COMMENT1           30 A  810
  1131. COMMENT2           30 A 4810
  1132. \
  1133. \STCHECK   
  1134.  
  1135.  
  1136.  
  1137.  
  1138.  
  1139.  
  1140.                            DO THE FOLLOWING FIRST
  1141.              ╔═══════════════════════════════════════════════════╗
  1142.              ║  1.CHECK DETAILS ON AGE SEX REGISTER ARE CORRECT. ║
  1143.              ║  2.ENTER SMEAR DETAILS.                           ║
  1144.              ║  3.ENTER IMMUNISATION DETAILS.                    ║
  1145.              ║  4.FIND OUT ABOUT REPEAT PRESCRIBING DRUGS.       ║
  1146.              ║  5.UPDATE THE PROBLEM LIST                        ║
  1147.              ╚═══════════════════════════════════════════════════╝
  1148.                  GO TO AGE/SEX RECALLS Y/N:&
  1149.  
  1150.  
  1151.  
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.  
  1158. \
  1159. YES.NO
  1160. \
  1161. \STDRUGSCR 
  1162.               Digoxin      B-blockers    Diuretics  Tnt + Ca      Ace Inhib
  1163.    ╔═════════════════════════════════════════════════════════════════════════╗
  1164.    ║CHECK║PULSE + APEX    ║FEV          ║OEDEMA    ║ANGINA       ║           ║
  1165.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1166.    ║TESTS║DIGOXIN LEVEL   ║U&E          ║U&E       ║NONE         ║U&E        ║
  1167.    ║     ║U & E           ║             ║URIC ACID ║             ║           ║
  1168.    ║     ║                ║             ║BS        ║             ║           ║
  1169.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1170.    ║SIDE ║NAUSEA,VOMIT    ║COLD EXTREMS ║GOUT      ║HEADACHE     ║DROP       ║
  1171.    ║     ║DIZZY,COLOR VIS.║             ║          ║             ║DRY COUGH  ║
  1172.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1173.    ║REFER║PULSE >120 <56  ║PULSE <50    ║DYSPNEA+  ║ANGINA WORSE ║           ║
  1174.    ║     ║                ║FEV 33% LESS ║          ║             ║           ║
  1175.    ╚═════════════════════════════════════════════════════════════════════════╝
  1176.    Pulse:&  /&/&   Fev:&   Oedema:& angina:&  com:&
  1177.                                               com:&
  1178.  
  1179.  
  1180.  
  1181.  
  1182.  
  1183.  
  1184.  
  1185.  
  1186. \
  1187. PULSE
  1188. REG
  1189. APEX
  1190. FEV
  1191. OEDEMA
  1192. ANGINA
  1193. COMMENT1
  1194. COMMENT2
  1195. \
  1196.